home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / f2c-stab.9 / f2c-stab / f2c-stabs / fts-f-trim-decls < prev    next >
Encoding:
AWK Script  |  1996-02-11  |  2.9 KB  |  131 lines
  1. #!/usr/bin/awk -f
  2. # -*- awk -*-
  3. #
  4. # $Header: /usr/bfr/src/test/RCS/fts-f-trim-decls,v 1.1 1995/01/18 17:39:14 abel Exp $
  5. #
  6. #********************************************
  7. #
  8. # convert character strings FORTRAN decls to STRINGs
  9. #
  10. # input must not contain comments, splitted lines and multiple decls
  11. # NOTE: doesn't handle thigs more complicated than char strings
  12. # 
  13. #
  14. #********************************************
  15. #
  16. # Written by Alexander L. Belikoff, 1994
  17. # Copyright (C)1994 Alexander L. Belikoff
  18. #
  19. # This program is free software; you can redistribute it and/or modify
  20. # it under the terms of the GNU General Public License as published by
  21. # the Free Software Foundation; either version 2 of the License, or
  22. # (at your option) any later version.
  23. #
  24. # This program is distributed in the hope that it will be useful,
  25. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  26. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27. # GNU General Public License for more details.
  28. #
  29. #********************************************
  30. #
  31. # $Log: fts-f-trim-decls,v $
  32. # Revision 1.1  1995/01/18  17:39:14  abel
  33. # Initial revision
  34. #
  35. #
  36. #********************************************
  37.  
  38.  
  39. # CHARACTER*33 A  ->  %STRING% A(33)
  40. # CHARACTER*(*) A  ->  %STRING% A(*)
  41.  
  42. $0 ~ /^      +CHARACTER[ \t]*\*[ \t]*[0-9]+[ \t]/ ||
  43. $0 ~ /^      +CHARACTER[ \t]*\*[ \t]*\([ \t]*\*[ \t]*\)[ \t]/ {
  44.     
  45.     res = $0
  46.     gsub(/[ \t]*\*[ \t]*/, "*", res)
  47.     gsub(/[ \t]*\([ \t]*/, "(", res)
  48.     gsub(/[ \t]*\)[ \t]*/, ") ", res)
  49.     res = substr(res, index(res, "*") + 1)
  50.     len = res
  51.  
  52.     if (len ~ /^\(\*\) .*$/) {
  53.         res = substr(res, index(res, ")") + 1)
  54.         len = "*"
  55.     }
  56.     else {
  57.         res = substr(res, index(res, " "))
  58.         sub(/[ \t]+.*$/, "", len)
  59.     }
  60.  
  61.     len = "(" len ")"
  62.  
  63.  
  64.     res = "      %STRING%" res
  65.     gsub("\,", len ", ", res)
  66.     res = res len
  67.  
  68.     print res
  69.     next
  70. }
  71.  
  72.  
  73. # CHARACTER A*(*)  ->  %STRING% A(*)
  74.  
  75. $0 ~ /^      +CHARACTER/ && $0 ~ /\*[ \t]*\([ \t]*\*[ \t]*\)/ {
  76.     
  77.     res = $0
  78.     gsub(/[ \t]*\*[ \t]*/, "*", res)
  79.     gsub(/[ \t]*\([ \t]*/, "(", res)
  80.     gsub(/[ \t]*\)[ \t]*/, ") ", res)
  81.     sub("CHARACTER", "%STRING%", res)
  82.     gsub(/\*\(\*\)/, "(*)", res)
  83.  
  84.     print res
  85.     next
  86. }
  87.  
  88.  
  89. # CHARACTER A*NNN  ->  %STRING% A(NNN)
  90.  
  91. $0 ~ /^      +CHARACTER[ \t]*[^\*]/ &&
  92. $0 ~ /\*[ \t]*[0-9]/ {
  93.     
  94.     res = $0
  95.     gsub(/\*/, " * ", res)
  96.     gsub(/,/, " , ", res)
  97.  
  98.     res = substr(res, index(res, "C"))
  99.     i1 = index(res, " ")
  100.  
  101.     npc = split(substr(res, i1), pieces, " ")
  102.  
  103.     i = 1
  104.  
  105.     while (i <= npc) {
  106.         typ = "      CHARACTER "
  107.         res = pieces[i]
  108.         i++
  109.  
  110.         if (index(pieces[i], "*")) {
  111.             res = res "(" pieces[i+1] ")"
  112.             typ = "      %STRING% "
  113.             i += 2
  114.         }
  115.  
  116.         if (index(pieces[i], ",")) {
  117.             res = res pieces[i]
  118.             i++
  119.         }
  120.  
  121.         print typ res
  122.     }
  123.  
  124.     next
  125. }
  126.  
  127.  
  128. { print }
  129.  
  130. # end of $Source: /usr/bfr/src/test/RCS/fts-f-trim-decls,v $
  131.